teams <- c(rep("yankees", 40), rep("padres", 40), rep("mariners", 40), rep("dodgers", 40))
salary <- c(rnorm(40, mean = 25), rnorm(40, 16), rnorm(40, 23), rnorm(40, 15))
df <- data.frame(teams, salary)
head(df)
## teams salary ## 1 yankees 25.33182 ## 2 yankees 26.94447 ## 3 yankees 23.31511 ## 4 yankees 24.59621 ## 5 yankees 27.25990 ## 6 yankees 25.57731